Public Class Messages

    Private Sub Messages_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Messagedata.Messages' table. You can move, or remove it, as needed.
        Me.MessagesTableAdapter.Fill(Me.Messagedata.Messages)
        'TODO: This line of code loads data into the 'RabbitDataSet.Rabbit' table. You can move, or remove it, as needed.

    End Sub

    Private Sub BindingSource1_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.MessagesTableAdapter.Update(Me.Messagedata.Messages)
        Me.Messagedata.AcceptChanges()

    End Sub

  
End Class